home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
os2
/
te2_130t.arj
/
TE2INST.003
/
Paths.scr
< prev
next >
Wrap
Text File
|
1994-03-28
|
2KB
|
80 lines
;; -------------------------------------------------------------------------
;; Paths.scr -- Te/2 Script Language Script
;; Copyright 1994, Oberon Software
;;
;; If you need different upload and download paths from time to time,
;; use this as a template for making the switch menu driven.
;; -------------------------------------------------------------------------
global integer usrmnuItems = 5
global integer usrmnuSelect = 1
global string usrmnuTitle = "Up/Download Path Settings"
global string usrmnuItem1 = "Default "
global string usrmnuItem2 = "CompuServe "
global string usrmnuItem3 = "MCI Mail "
global string usrmnuItem4 = "QWK Mail "
global string usrmnuItem5 = "Fido Mail "
global integer usrmnuTop = 10
global integer usrmnuLeft = 20
global integer usrmnuAttr = 0x1f
global integer usrmnuHiAttr = 0x71
global integer pscrGotDefaults
global string dfltDownPath
global string dfltUpPath
string CISDownPath = "D:\Usr\Netmail\CIS\InBox"
string CISUpPath = "D:\Usr\Netmail\CIS\OutBox"
string MCIDownPath = "D:\Usr\Netmail\MCIMail\InBox"
string MCIUpPath = "D:\Usr\Netmail\MCIMail\OutBox"
string QWKDownPath = "D:\PMQWK\InBound"
string QWKUpPath = "D:\PMQWK\OutBound"
string FidoDownPath = "D:\Usr\Netmail\Fido\InBox"
string FidoUpPath = "D:\Usr\Netmail\Fido\OutBox"
;; -------------------------------------------------------------------------
subroutine getDefaults
if !pscrGotDefaults
dfltDownPath = DownloadPath
dfltUpPath = UploadPath
pscrGotDefaults = true
endif
endsub
;; -------------------------------------------------------------------------
subroutine SetPaths
if usrmnuSelect == 1
DownloadPath = dfltDownPath
UploadPath = dfltUpPath
elseif usrmnuSelect == 2
DownloadPath = CISDownPath
UploadPath = CISUpPath
elseif usrmnuSelect == 3
DownloadPath = MCIDownPath
UploadPath = MCIUpPath
elseif usrmnuSelect == 4
DownloadPath = QWKDownPath
UploadPath = QWKUpPath
elseif usrmnuSelect == 5
DownloadPath = FidoDownPath
UploadPath = FidoUpPath
endif
endsub
;; -------------------------------------------------------------------------
program
gosub getDefaults
run("UserMenu")
gosub SetPaths
message("^M^JDownload Path = %s", DownloadPath)
message("^M^JUpload Path = %s^M^J", UploadPath)
end